113 



Control 1: ("192.0.1.1") 



KRL- Program .: 
RemoteCmdC 192.0. 1.2",...) 
RemoteCmdC 192.0. 1.3",...) 
RemoteCmdC 192.0. i .4",...) 



A .% 
A3 



Ethernet driver 



Network card 



Control 3: ("192.0.1.3") 



KRL-Program. : 

RemoteCmdC 192.0. 1.2",.-) 
RemoteCmdC 192.0. 1.1",...) 
RemoteCmdC 192.0.1.4",...) 



3Q, 



Ethernet dri ver 



Network card 



Control 2: ("192.0.1.2") 



Ethernet hub or 
SWITCH 



KRL-Program .: 
RemoteCmdC 192.0. 1.1",...) 
RemoteCmdC 192.0. 1.3",...) 
RemoteCmdC 192.0. 1.4",...) 



Ethernet, driver 



Network card 



Control 4: ( ,, 192.Q.1.4") 



KRL-Program. : 
RemoteCmdC 192.0. 1.2",...) 
RemoteCmdC 192.0. 1.3",...) 
RemoteCmdC 192.0. 1.1",...) 



Ethernet driver 




Network card 



V 



Control j. 



2>I3 



Control 2: 



KRL-Pro^ram .: 

RcmoteCmdri92 0 1 1" "I-I+n 1 

! 






; Program interpreter ! 
jferset: "192.0.1.1" 
Command: ' 1=1+1" | 

' ~ " :* " . 






Produce. UDP-Messaee: 
IDargetlP: "192.0.1-1" 
i Data : "1=1+ 1" 
;Sender:own IP address 








t 






iSend UDP message f™" 




?i Receive UDP message | 

— Y Z 






: : 

I KRL-C°mpiler : 

j Compile command in ! 
j internal code I 






\ KRL.Interpreter : 1 
j Perform command j 

! n=i+n i 

Y _ 

• Produce UDP.Mcssaee: \ 
jTarget IP: IP of j 
1 sender j 
jData: | 
jPerformance result 

■ 1 1 








.Receive UDP messages** 




j Send UDP message j 


\ Program., interpreter:! 






; Wait for command 

i response \ 

, : ' " r : 1 

KRL program: \ 

\ Evaluates return value! 
of command 








313 



Control 2: 



Def Server ( ) 



Control 



i 



;-- wait for the clients to finish the old task -- 
RemoteCmd (ClientJ JP[ ],"Wait for Task=#Idle") 
RemoteCmd (Client_2_IP[ ] [ ],"Wait for 
(Task==#fd!e)") 
;~ spawn a new client task - 
RemoteCmd (Client_l_lP[ ] [ j/Task = #Weld") 
RemoteCmd (Client_2JP[ ] [ ]/Task = #Fetch"), 



DefCIie»t_l () 
Loop 

Wait for Tasko#Idle 
Switch Task 
a Case #Weld 
/ WeIdPart() 
/ Case#Fetch 
/ FetchPart ( ) 
Default 
Error Message... 
EndSwitch 
Task=#Idle 
Endloop 
End 



;- do anything - 
Fetch_Server_Part ( ) 



RemoteCmd (Client^ IJPf ] [ ],"Wait for Task=#Idle") 
RemoteCmd (Clienf 2_IP[ ] [ ],"Wait for Task=#Idle") 



End 



Control 



3: 



\ 



\ 



DefC(ient_2() 
Loop 

Wait for Tasko#Idle 
Switch Task 
Case #WeId 
^ WeldPart() 
Case #Fetch 
FetchPart ( ) 
Default 

Error Message... 
EndSwitch 
Task=#ldle 
Endloop 
End 



^.3 



